home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / metz-1944.g < prev    next >
Encoding:
Text File  |  1998-05-22  |  9.8 KB  |  361 lines  |  [TEXT/XCNQ]
  1. (game-module "metz-1944"
  2.   (title "Drive on Metz, 1944")
  3.   (base-module "ww2-bn")
  4.   (variants
  5.    (see-all false)
  6.    (sequential true)
  7.    )
  8.   )
  9.  
  10. (set terrain-seen true)
  11.  
  12. (add u* vision-range 2)
  13.  
  14. ;; Limited air support and intelligence, so everybody is line-of-sight.
  15.  
  16. (add u* vision-bend 0)
  17.  
  18. (table eye-height
  19.   ;; Everybody has *something* to stand on to see further.
  20.   (u* t* 4)
  21.   )
  22.  
  23. ;; Trees go up to about 20m in height.
  24.  
  25. (add (bocage forest) thickness 20)
  26.  
  27. ; not really...
  28. (scorekeeper (do last-side-wins))
  29.  
  30. (add u* point-value 0)
  31. (add village point-value 1)
  32. (add fort point-value 10)
  33. (add town point-value 50)
  34.  
  35. (table unit-initial-supply add (village m* 0))
  36.  
  37. (set initial-date "8:00 7 Sep 1944")
  38.  
  39. (set initial-day-part 1.50)
  40.  
  41. ;; The game lasts up to three months.
  42.  
  43. (set last-turn 270)
  44.  
  45. (add u* start-with 0)
  46.  
  47. (side 1 (name "America") (adjective "American") (class "allied")
  48.    (color "blue") (emblem-name "white-star"))
  49.  
  50. (side 2 (name "Germany") (adjective "German") (class "german")
  51.    (color "black") (emblem-name "german-cross"))
  52.  
  53. (set sides-min 2)
  54. (set sides-max 2)
  55.  
  56. (set synthesis-methods nil)
  57.  
  58. (area 36 27)
  59.  
  60. (area (terrain
  61.  (by-name
  62.     (sea 0) (clear 1) (bocage 2) (hill 3) (forest 4)
  63.     (swamp 5) (flooded 6) (beach 7) (city 8) (river 9)
  64.     (road 10) (sec-road 11) (railroad 12))
  65.   "23b13a"
  66.   "24b12a"
  67.   "25b11a"
  68.   "18bi7b10a"
  69.   "27b9a"
  70.   "6be9be7be3b8a"
  71.   "6be9be8be3b7a"
  72.   "6be10be7be4b6a"
  73.   "2be3b3e9be6be5b5a"
  74.   "2b2e3be10be6be6b4a"
  75.   "3b2e5be8be13b3a"
  76.   "19be14b2a"
  77.   "35ba"
  78.   "22bi13b"
  79.   "a21b2i12b"
  80.   "2a5be11be3bi12b"
  81.   "3a4b3e6be2be16b"
  82.   "4a3b4e2be5be6be9b"
  83.   "5a3b4e3be2b2e16b"
  84.   "6a3b4e7be15b"
  85.   "7a3b3e3be3be15b"
  86.   "8a3b3e6be15b"
  87.   "9a3b3e6be14b"
  88.   "10a4b2e5be14b"
  89.   "11a25b"
  90.   "12a24b"
  91.   "13a23b"
  92.   ))
  93.  
  94. (area (aux-terrain river
  95.   "36a"
  96.   "18ai17a"
  97.   "18ahq16a"
  98.   "18agL16a"
  99.   "18agL16a"
  100.   "18acT16a"
  101.   "19ahq15a"
  102.   "19acT15a"
  103.   "20ahq14a"
  104.   "20acT14a"
  105.   "21ahq13a"
  106.   "21agL13a"
  107.   "21agT13a"
  108.   "21agM13a"
  109.   "20aeoL13a"
  110.   "20agM<13a"
  111.   "20agL14a"
  112.   "20agL14a"
  113.   "20acT14a"
  114.   "21ahq13a"
  115.   "21agL13a"
  116.   "21acT13a"
  117.   "22ahq12a"
  118.   "22acT12a"
  119.   "23ahq11a"
  120.   "23acL11a"
  121.   "36a"
  122.   ))
  123.  
  124. (area (aux-terrain road
  125.   "36a"
  126.   "17aie17a"
  127.   "ai15afaD16a"
  128.   "af12ak3sTj16a"
  129.   "2aD10akr3a2j16a"
  130.   "2af9akr4ajf2ai13a"
  131.   "3aDk7sz5afaDaj13a"
  132.   "c2sxr4ak2sr6aDfaj13a"
  133.   "4a>4sv9afaDj13a"
  134.   "10aFu3ae4aDfj13a"
  135.   "10afa@3a@3afaE13a"
  136.   "11aDa>u2a@3aDj13a"
  137.   "11af3a@2a@2a2j13a"
  138.   "c11sR3sN2sNs~j13a"
  139.   "13aD6akrK7sq5a"
  140.   "13af6ajkrD12a"
  141.   "14a@5a2jaf12a"
  142.   "15a@4a2j2aD11a"
  143.   "16a@3a2f2af11a"
  144.   "17a@ksu2D2a@10a"
  145.   "18aE2aEj3aD9a"
  146.   "17akr2abf3af9a"
  147.   "17aj5aD3aD8a"
  148.   "17ab5af3af8a"
  149.   "24aD3aD7a"
  150.   "24ab3ab7a"
  151.   "36a"
  152.   ))
  153.  
  154. (area (aux-terrain railroad
  155.   "36a"
  156.   "9ae10ai15a"
  157.   "10aFu8aj15a"
  158.   "10aja>su3aksr15a"
  159.   "10af4a>2sz17a"
  160.   "11a@6aj17a"
  161.   "ae10a@5aj5ai11a"
  162.   "2a>u5ak3sN4sv5aj11a"
  163.   "4a>4sv9aD4aj11a"
  164.   "10a@8af4aj11a"
  165.   "11aD8a@3aj11a"
  166.   "11af9aD2aj11a"
  167.   "12aD8anakr11a"
  168.   "12af8aj>r12a"
  169.   "13a@6akv14a"
  170.   "14a@5aja@13a"
  171.   "15a@4aj2a>2su9a"
  172.   "16a@3aj6a>2su5a"
  173.   "17a@2af10a>2sqa"
  174.   "18aFsuD14a"
  175.   "18aj2aE14a"
  176.   "17akr2af14a"
  177.   "17aj4aD13a"
  178.   "17aj4af13a"
  179.   "17ab5aD12a"
  180.   "23ab12a"
  181.   "36a"
  182.   ))
  183.  
  184. (area (elevations
  185.   "4*200,3*350,300,4*350,300,350,2*180,3*160,2*170,2*220,13a"
  186.   "6*200,2*350,300,3*350,2*300,200,180,170,2*160,180,2*200,2*220,12a"
  187.   "7*200,4*250,350,2*300,200,180,2*170,2*160,180,200,3*220,11a"
  188.   "6*200,5*250,200,3*300,200,180,3*170,2*180,4*220,10a"
  189.   "7*200,5*250,4*300,200,4*170,180,200,3*220,250,9a"
  190.   "2*250,6*200,250,2*200,4*250,2*200,5*170,180,200,3*220,250,8a"
  191.   "300,3*250,5*200,2*250,2*200,250,4*200,180,3*170,2*190,220,250,220,2*250,7a"
  192.   "170,300,2*250,6*200,250,4*200,250,300,200,5*170,190,200,250,2*220,2*250,6a"
  193.   "2*170,300,200,250,7*200,4*250,3*300,180,2*170,2*180,200,250,2*220,3*250,5a"
  194.   "2*170,2*300,2*250,7*200,4*250,2*300,180,2*170,2*180,170,200,3*220,3*250,4a"
  195.   "3*170,2*300,2*250,5*200,3*250,230,2*250,2*300,180,2*170,2*190,200,3*220,4*250,3a"
  196.   "3*170,2*300,170,250,5*200,4*250,230,250,2*300,3*170,190,2*200,3*220,5*250,2a"
  197.   "4*170,2*300,200,250,6*200,2*250,230,250,200,300,3*170,190,2*200,4*220,5*250,a"
  198.   "5*170,300,170,2*250,2*200,170,2*200,4*250,200,300,4*170,2*200,3*220,7*250,"
  199.   "a4*170,2*300,3*250,5*200,4*250,5*170,2*200,3*220,7*250,"
  200.   "2a3*170,3*300,3*250,4*200,3*250,200,300,4*170,2*200,3*220,7*250,"
  201.   "3a3*170,4*300,2*250,4*200,2*250,200,2*300,3*170,3*200,2*220,7*250,"
  202.   "4a2*170,5*300,2*250,3*200,2*250,200,3*170,200,2*170,3*200,220,7*250,"
  203.   "5a2*170,4*300,3*250,3*200,250,2*300,2*170,300,200,170,3*200,2*220,6*250,"
  204.   "6a2*170,4*300,3*250,2*200,2*250,4*170,250,3*170,2*200,220,6*250,"
  205.   "7a2*170,4*300,3*250,2*200,2*250,300,2*170,300,250,3*170,200,2*220,5*250,"
  206.   "8a2*170,4*300,3*250,2*200,250,300,2*170,300,250,3*170,2*200,220,5*250,"
  207.   "9a2*170,4*300,3*250,2*200,250,200,2*170,300,250,3*170,200,2*220,4*250,"
  208.   "10a2*170,4*300,3*250,200,250,200,2*170,2*250,3*170,2*200,220,4*250,"
  209.   "11a2*170,4*300,6*200,2*170,300,250,2*170,2*200,2*220,3*250,"
  210.   "12a6*170,5*200,2*170,2*250,3*170,200,3*220,2*250,"
  211.   "13a5*170,5*200,3*170,2*250,4*170,3*220,250,"
  212.   ))
  213.  
  214. (inf-mot 13 14 1 (n "1/10") (sym 100500101) (m 18))
  215. (inf-mot 14 12 1 (n "1/11") (sym 100500111) (m 18))
  216. (inf-mot 12 16 1 (n "1/2") (sym 100500021) (m 18))
  217. (inf-mot 8 20 1 (n "1/357") (sym 109003571) (m 18))
  218. (inf-mot 5 22 1 (n "1/358") (sym 109003581) (m 18))
  219. (inf-mot 3 25 1 (n "1/359") (sym 109003591) (m 18))
  220. (inf-mot 12 14 1 (n "2/10") (sym 100500102) (m 18))
  221. (inf-mot 13 12 1 (n "2/11") (sym 100500112) (m 18))
  222. (inf-mot 11 16 1 (n "2/2") (sym 100500022) (m 18))
  223. (inf-mot 7 21 1 (n "2/357") (sym 109003572) (m 18))
  224. (inf-mot 5 23 1 (n "2/358") (sym 109003582) (m 18))
  225. (inf-mot 3 24 1 (n "2/359") (sym 109003592) (m 18))
  226. (inf-mot 11 14 1 (n "3/10") (sym 100500103) (m 18))
  227. (inf-mot 12 12 1 (n "3/11") (sym 100500113) (m 18))
  228. (inf-mot 10 16 1 (n "3/2") (sym 100500023) (m 18))
  229. (inf-mot 7 22 1 (n "3/357") (sym 109003573) (m 18))
  230. (inf-mot 5 24 1 (n "3/358") (sym 109003583) (m 18))
  231. (inf-mot 2 25 1 (n "3/359") (sym 109003593) (m 18))
  232. (inf-armored 8 13 1 (n "23") (sym 120700230) (m 18))
  233. (inf-armored 6 14 1 (n "38") (sym 120700380) (m 18))
  234. (inf-armored 7 14 1 (n "48") (sym 120700480) (m 18))
  235. (cav-mech 8 23 1 (sym 109000000) (m 18))
  236. (arty-towed 10 14 1 (sym 100500190) (m 18))
  237. (arty-towed 10 15 1 (sym 100500210) (m 18))
  238. (arty-towed 11 13 1 (sym 100500460) (m 18))
  239. (arty-towed 11 12 1 (sym 100500500) (m 18))
  240. (arty-towed 3 22 1 (sym 109003430) (m 18))
  241. (arty-towed 3 21 1 (sym 109003440) (m 18))
  242. (arty-towed 3 20 1 (sym 109003450) (m 18))
  243. (arty-towed 3 22 1 (sym 109009150) (m 18))
  244. (arty-armored 7 15 1 (n "434") (sym 120704340) (m 18))
  245. (arty-armored 7 16 1 (n "440") (sym 120704400) (m 18))
  246. (arty-armored 6 16 1 (n "489") (sym 120704890) (m 18))
  247. (tank 6 17 1 (n "17") (sym 120700170) (m 18))
  248. (tank 9 12 1 (n "31") (sym 120700310) (m 18))
  249. (tank 6 15 1 (n "40") (sym 120700400) (m 18))
  250. (hq-inf-div 10 13 1 (sym 100500000) (m 180))
  251. (hq-inf-div 2 23 1 (sym 109000000) (m 180))
  252. (hq-armor-div 5 16 1 (sym 120700000) (m 180))
  253. (hq-inf-corps 3 18 1 (n "XX") (m 180))
  254. (supply-depot 1 14 1)
  255. (village 3 19 1 (n "Etain"))
  256.  
  257. (inf 15 20 2 (m 18))
  258. (inf 16 20 2 (m 18))
  259. (inf 13 24 2 (m 18))
  260. (inf 14 23 2 (m 18))
  261. (inf 16 18 2 (m 18))
  262. (inf 17 17 2 (m 18))
  263. (inf 18 15 2 (m 18))
  264. (inf 18 14 2 (m 18))
  265. (inf 18 11 2 (m 18))
  266. (inf 19 12 2 (m 18))
  267. (inf 22 10 2 (m 18))
  268. (inf 22 9 2 (m 18))
  269. (inf 23 7 2 (m 18))
  270. (inf 23 6 2 (m 18))
  271. (inf 23 11 2 (m 18))
  272. (inf 23 12 2 (m 18))
  273. (inf 23 13 2 (m 18))
  274. (inf 22 14 2 (m 18))
  275. (inf 22 12 2 (m 18))
  276. (hq-inf-div 21 14 2 (n "462") (m 180))
  277. (hq-gren-div 22 11 2 (n "17 SS") (m 180))
  278. (hq-gren-div 23 8 2 (n "3") (m 180))
  279. (hq-gren-div 16 22 2 (n "559 VG") (m 180))
  280. (hq-inf-corps 24 12 2 (n "XIII SS") (m 180))
  281. (fort 20 15 2 (n "Deroulede") (m 18) (os 1))
  282. (fort 20 10 2 (n "Driant") (m 18) (os 1))
  283. (fort 19 13 2 (n "Jeanne d'Arc") (m 18) (os 1))
  284. (fort 20 14 2 (n "Plappeville") (m 18) (os 1))
  285. (fort 23 10 2 (n "St Privat") (m 18) (os 1))
  286. (fort 22 8 2 (n "Verdun") (m 18) (os 1))
  287. (village 12 20 2 (n "Briey") (os 1))
  288. (village 9 18 2 (n "Conflans") (os 1))
  289. (village 12 13 2 (n "Mars-la-Tour") (os 1))
  290. (village 21 5 2 (n "Pagny") (os 1))
  291. (village 18 23 2 (n "Thionville") (os 1))
  292. (town 22 13 2 (n "Metz") (m 180) (os 1))
  293.  
  294. (arty-rr 23 14 2)
  295.  
  296. (arty-cd-open (in "Jeanne d'Arc") (s 2))
  297. (arty-cd-open (in "Driant") (s 2))
  298.  
  299. #|
  300. ;;; Americans.
  301.  
  302. (hq-inf-corps 5 15 1 (n "XX"))
  303.  
  304. (unit-defaults (s 1))
  305.  
  306. (unit-defaults (@ 10 14))
  307.  
  308. (hq-inf-div -1 0 (sym 100500000))
  309. (inf-mot 0 0 (sym 100500021) (n "1/2"))
  310. (inf-mot 0 0 (sym 100500022) (n "2/2"))
  311. (inf-mot 1 0 (sym 100500023) (n "3/2"))
  312. (inf-mot 1 0 (sym 100500101) (n "1/10"))
  313. (inf-mot 5 0 (sym 100500102) (n "2/10"))
  314. (inf-mot 2 0 (sym 100500103) (n "3/10"))
  315. (inf-mot 2 0 (sym 100500111) (n "1/11"))
  316. (inf-mot 3 0 (sym 100500112) (n "2/11"))
  317. (inf-mot 3 0 (sym 100500113) (n "3/11"))
  318. (arty-towed 4 0 (sym 100500190))
  319. (arty-towed 4 0 (sym 100500210))
  320. (arty-towed 4 0 (sym 100500460))
  321. (arty-towed 4 0 (sym 100500500))
  322.  
  323. (unit-defaults (@ 3 14))
  324.  
  325. (hq-inf-div -1 0 (sym 109000000))
  326. (inf-mot 0 0 (sym 109003571) (n "1/357"))
  327. (inf-mot 0 0 (sym 109003572) (n "2/357"))
  328. (inf-mot 1 0 (sym 109003573) (n "3/357"))
  329. (inf-mot 1 0 (sym 109003581) (n "1/358"))
  330. (inf-mot 2 0 (sym 109003582) (n "2/358"))
  331. (inf-mot 2 0 (sym 109003583) (n "3/358"))
  332. (inf-mot 3 0 (sym 109003591) (n "1/359"))
  333. (inf-mot 3 0 (sym 109003592) (n "2/359"))
  334. (inf-mot 4 0 (sym 109003593) (n "3/359"))
  335. (cav-mech 5 0 (sym 109000000))
  336. (arty-towed 6 0 (sym 109003430))
  337. (arty-towed 6 0 (sym 109003440))
  338. (arty-towed 6 0 (sym 109003450))
  339. (arty-towed 6 0 (sym 109009150))
  340.  
  341. (unit-defaults (@ 10 20))
  342.  
  343. (hq-armor-div 0 0 (sym 120700000))
  344. (inf-armored 0 0 (sym 120700230) (n "23"))
  345. (inf-armored 1 0 (sym 120700380) (n "38"))
  346. (inf-armored 1 0 (sym 120700480) (n "48"))
  347. (arty-armored 2 0 (sym 120704340) (n "434"))
  348. (arty-armored 2 0 (sym 120704400) (n "440"))
  349. (arty-armored 3 0 (sym 120704890) (n "489"))
  350. (tank 3 0 (sym 120700170) (n "17"))
  351. (tank 4 0 (sym 120700310) (n "31"))
  352. (tank 4 0 (sym 120700400) (n "40"))
  353.  
  354. (unit-defaults (@ 0 0))
  355.  
  356. ;;; Germany.
  357.  
  358. (hq-inf-corps 32 14 2 (n "XIII SS"))
  359.  
  360. |#
  361.